home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / pascal / SWAG9605.DDD / 0061_Is Mouse Driver Loaded?.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-05-31  |  525 b   |  18 lines
  1. {I need a code snippet that will test to determine whether a mouse driver is loaded. }
  2.  
  3. FUNCTION DriverInstalled : boolean; {this checks for a mouse driver!}
  4. CONST
  5.   iret = 207;
  6. VAR
  7.   driverOff, driverSeg : Integer;
  8. Begin
  9.   driverOff := MemW[0000:0204];
  10.   driverSeg := MemW[0000:0206];
  11.   IF ((driverSeg <> 0) and (driverOff <> 0)) THEN
  12.     Begin
  13.       IF (Mem [driverSeg:driverOff] <> iret) THEN DriverInstalled := true
  14.        ELSE DriverInstalled := false
  15.     End
  16.        ELSE DriverInstalled := false
  17. End;
  18.